unit dtmMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, IBConnection, sqldb, FileUtil, LResources, Forms, Controls,
  Dialogs;

type

  { TdtmMain }

  TdtmMain = class(TDataModule)
    fbdConnection: TIBConnection;
    images24: TImageList;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;
  private
    { private declarations }
  public
    { public declarations }
    function GetNewQuery(const pSql: string): TSQLQuery;
//    functino GetNewTransaction
  end; 

var
  _dtmMain: TdtmMain;

implementation

{ TdtmMain }

function TdtmMain.GetNewQuery(const pSql: string): TSQLQuery;
begin
  result := TSQLQuery.Create(self);
  result.DataBase := fbdConnection;
  //fbdConnection.
end;

initialization
  {$I dtmMain.lrs}

end.

